﻿Public Class frmDollarRoomslc
    Private da As New DSVaultingTableAdapters.ir_issue_room_boxesTableAdapter
    Private dolarDa As New DSVaultingTableAdapters.ir_dollar_roomsTableAdapter
    Private dt As New DataTable

    Private Sub frmIssueRoomslc_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DSVaulting.ir_dollar_rooms' table. You can move, or remove it, as needed.
        Me.Ir_dollar_roomsTableAdapter.Fill(Me.DSVaulting.ir_dollar_rooms)
        'TODO: This line of code loads data into the 'DSVaulting.ir_issue_rooms' table. You can move, or remove it, as needed.
        Me.Ir_issue_roomsTableAdapter.Fill(Me.DSVaulting.ir_issue_rooms)
        Dim box As Integer = da.ScalarQueryBoxEInRoom(uxRoomCbx.SelectedValue)
        If dolarDa.GetData.Rows.Count > 0 Then
            uxOKBtn.Enabled = True
        End If
    End Sub

    Private Sub uxCancelBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles uxCancelBtn.Click
        frmRoomSelecting.Enabled = True
        Me.Close()
    End Sub

    Private Sub frmIssueRoomslc_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        frmRoomSelecting.Enabled = True
    End Sub

    Private Sub uxOKBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles uxOKBtn.Click
        frmDollarRoom.Show()
        Me.Close()
    End Sub
End Class